File:of Disk: Disks/MyPDP/m8-rka0-rkb0
(Source file text)
R136, TAD R115 04537 3313 R137, DCA R113 04540 4272 JMS R72 04541 1266 R141, E66 04542 0366 R142, AND (17 04543 6211 CDF 10 04544 3761 DCA I (7600 04545 5250 JMP R50 04546 1027 TAD Z27 04547 1030 TAD Z30 04550 7120 STL 04551 2032 ISZ Z32 04552 4525 JMS I Z125 04553 7200 CLA 04554 3032 DCA Z32 04555 5741 JMP I R141 04556 0000! R156, 0000 04557 4640 JMS I R40 04560 2336 ISZ R136 04561 7600 04562 6601 04563 0435 04564 5242 04565 7617 04566 0017 04567 5015 04570 7616 04571 7760 04572 7620 04573 7700 04574 4454 04575 4453 04576 4464 04577 7201 *5000 05000 0000! T00, 0000 05001 4777 JMS I (MAKCDF 05002 3220 DCA T20 05003 1600 TAD I T00 05004 2200 ISZ T00 05005 3215 DCA T15 05006 6224 RIF 05007 1376 TAD (6201 05010 4775 JMS I (SETCDF 05011 4775 JMS I (SETCDF 05012 6212 CIF 10 05013 4774 JMS I (7700 05014 0005 0005 /CD 05015 0000! T15, 0000 05016 1373 TAD (7616 05017 3215 DCA T15 05020 0000! T20, 0000 05021 5600 JMP I T00 /DEASS AB-WW-V0030 LIST.DC 01/05/70 PAGE 55 05022 0000! T22, 0000 05023 7450 SNA 05024 5230 JMP T30 05025 7104 CLL RAL 05026 1372 TAD (7614 05027 3215 DCA T15 05030 4777 T30, JMS I (MAKCDF 05031 3256 DCA T56 05032 1371 TAD (7201 05033 3245 DCA T45 05034 6211 CDF 10 05035 2215 ISZ T15 05036 1615 TAD I T15 05037 7450 SNA 05040 5256 JMP T56 05041 4775 JMS I (SETCDF 05042 6212 CIF 10 05043 4774 JMS I (7700 05044 0001 0001 /FETCH 05045 7201! T45, XE01 05046 5260 JMP T60 05047 2215 ISZ T15 05050 6211 CDF 10 05051 1615 TAD I T15 05052 3273 DCA T73 05053 1370 TAD (5066 05054 3326 DCA T126 05055 2222 ISZ T22 05056 0000! T56, 0000 05057 5622 JMP I T22 05060 7130 T60, STL RAR 05061 5256 JMP T56 05062 0000! T62, 0000 05063 4777 JMS I (MAKCDF 05064 3336 DCA T136 05065 5726 JMP I T126 05066 4775 T66, JMS I (SETCDF 05067 6202 CIF 0 05070 4645 JMS I T45 05071 0200 AND T00 05072 6200 T72, 6200 05073 0000! T73, 0000 05074 7500 SMA 05075 7610 SKP CLA 05076 5336 JMP T136 05077 1367 TAD (7600 05100 3220 DCA T20 05101 1272 TAD T72 05102 3222 DCA T22 05103 1273 TAD T73 05104 1366 TAD (1 05105 3273 DCA T73 05106 6201 T106, CDF 0 05107 1622 TAD I T22 05110 4326 JMS T126 05111 6201 CDF 0 /DEASS AB-WW-V0030 LIST.DC 01/05/70 PAGE 56 05112 1622 TAD I T22 05113 4326 JMS T126 05114 7146 CLL CMA RTL 05115 1222 TAD T22 05116 3222 DCA T22 05117 4340 JMS T140 05120 4340 JMS T140 05121 7004 RAL 05122 4326 JMS T126 05123 2220 ISZ T20 05124 5306 JMP T106 05125 5266 JMP T66 05126 0000! T126, 0000 05127 0365 AND (377 05130 1364 TAD (7546 05131 7450 SNA 05132 5336 JMP T136 05133 1363 TAD (232 05134 2222 ISZ T22 05135 2262 ISZ T62 05136 0000! T136, 0000 05137 5662 JMP I T62 05140 0000 T140, 0000 05141 3326 DCA T126 05142 6201 CDF 0 05143 2222 ISZ T22 05144 1622 TAD I T22 05145 0362 AND (7400 05146 1326! T146, E126 05147 7006 RTL 05150 7006 RTL 05151 5740 JMP I T140 05152 5746 JMP I T146 05153 2346 ISZ T146 05154 5746 JMP I T146 05155 3025 DCA Z25 05156 1040 TAD Z40 05157 1366 TAD (1 05160 7100 CLL 05161 1365 TAD (377 05162 7400 05163 0232 05164 7546 05165 0377 05166 0001 05167 7600 05170 5066 05171 7201 05172 7614 05173 7616 05174 7700 05175 5525 05176 6201 05177 5530 *5200 /DEASS AB-WW-V0030 LIST.DC 01/05/70 PAGE 57 05200 0000! U00, 0000 05201 1235 TAD U35 05202 7041 CIA 05203 1357 TAD U157 05204 1377 TAD (177 05205 0376 AND (7600 05206 7110 CLL RAR 05207 3234 DCA U34 05210 1234 TAD U34 05211 7112 CLL RTR 05212 7012 RTR 05213 7012 RTR 05214 7450 SNA 05215 5243 U15, JMP U43 05216 7001 IAC 05217 7010 RAR 05220 1272 TAD U72 05221 3272 DCA U72 05222 7100 CLL 05223 1775 TAD I (V61 05224 1272 TAD U72 05225 7630 SZL CLA 05226 5245 JMP U45 05227 1234 TAD U34 05230 1374 TAD (4000 05231 3234 DCA U34 05232 6202 CIF 0 05233 4647 JMS I U47 05234 0000! U34, 0000 05235 5600 U35, JMP I U00 05236 0000! U36, 0000 05237 5245 JMP U45 05240 1236 TAD U36 05241 1373 TAD (1 05242 4772 JMS I (V106 05243 2200 U43, ISZ U00 05244 5600 JMP I U00 05245 7330 U45, AC4000 05246 5600 JMP I U00 05247 0000! U47, 0000 05250 0000! U50, 0000 05251 4771 JMS I (MAKCDF 05252 3276 DCA U76 05253 4770 JMS I (SETCDF 05254 1367 TAD (232 05255 4303 U55, JMS U103 05256 5276 JMP U76 05257 1302 TAD U102 05260 0366 AND (77 05261 7640 SZA CLA 05262 5255 JMP U55 05263 4200 U63, JMS U00 05264 5276 JMP U76 05265 1765 TAD I (V115 05266 6212 CIF 10 05267 4764 JMS I (7700 05270 0004 0004 /CLOSE /DEASS AB-WW-V0030 LIST.DC 01/05/70 PAGE 60 05271 5516 5516 05272 0000! U72, 0000 05273 5300 JMP U100 05274 3763 DCA I (V124 05275 2250 ISZ U50 05276 0000! U76, 0000 05277 5650 JMP I U50 05300 7130 U100, STL RAR 05301 5276 JMP U76 05302 0000! U102, 0000 05303 0000! U103, 0000 05304 0362 AND (377 05305 3234 DCA U34 05306 4771 JMS I (MAKCDF 05307 3331 DCA U131 05310 5730 JMP I U130 05311 2303 U111, ISZ U103 05312 4330 U112, JMS U130 05313 4333 JMS U133 05314 4333 JMS U133 05315 7144 CLL CMA RAL 05316 1357 TAD U157 05317 3357 DCA U157 05320 4343 JMS U143 05321 4343 JMS U143 05322 2302 ISZ U102 05323 5311 JMP U111 05324 4770 JMS I (SETCDF 05325 4200 JMS U00 05326 5761 JMP I (V00 05327 5311 JMP U111 05330 0000! U130, 0000 05331 0000! U131, 0000 05332 5703 JMP I U103 05333 0000 U133, 0000 05334 1234 TAD U34 05335 6201 CDF 0 05336 3757 DCA I U157 05337 2357 ISZ U157 05340 2303 ISZ U103 05341 4330 JMS U130 05342 5733 JMP I U133 05343 0000 U143, 0000 05344 1234 TAD U34 05345 7106 CLL RTL 05346 7006 RTL 05347 3234 DCA U34 05350 1234 TAD U34 05351 0360 AND (7400 05352 6201 CDF 0 05353 1757 TAD I U157 05354 3757 DCA I U157 05355 2357 ISZ U157 05356 5743 JMP I U143 /DEASS AB-WW-V0030 LIST.DC 01/05/70 PAGE 61 05357 0000! U157, 0000 05360 7400 05361 5400 05362 0377 05363 5524 05364 7700 05365 5515 05366 0077 05367 0232 05370 5525 05371 5530 05372 5506 05373 0001 05374 4000 05375 5461 05376 7600 05377 0177 *5400 05400 7200 V00, CLA 05401 3324 DCA V124 05402 7130 STL RAR 05403 5777 JMP I (U112 05404 0000! V04, 0000 05405 3246 V05, DCA V46 05406 4330 JMS MAKCDF 05407 3273 DCA V73 05410 1324 TAD V124 05411 7640 SZA CLA 05412 5272 JMP V72 05413 1246 TAD V46 05414 7106 CLL RTL 05415 1246 TAD V46 05416 1376 TAD (7600 05417 3322 DCA V122 05420 1604 TAD I V04 05421 3246 DCA V46 05422 1375 TAD (5515 05423 3323 DCA V123 05424 4276 JMS V76 05425 4276 JMS V76 05426 4276 JMS V76 05427 4276 JMS V76 05430 4276 JMS V76 05431 1321 TAD V121 05432 7450 SNA 05433 1246 TAD V46 05434 3321 DCA V121 05435 1374 TAD (6601 05436 3246 DCA V46 05437 1315 TAD V115 05440 0373 AND (17 05441 7450 SNA 05442 5273 V42, JMP V73 05443 6212 CIF 10 05444 4772 JMS I (7700 05445 0001 0001 /FETCH /DEASS AB-WW-V0030 LIST.DC 01/05/70 PAGE 62 05446 6601! V46, XC01 05447 5272 JMP V72 05450 1246 TAD V46 05451 3771 DCA I (U47 05452 1370 TAD (5516 05453 3260 DCA V60 05454 1315 TAD V115 05455 6212 CIF 10 05456 4772 JMS I (7700 05457 0003 0003 /ENTER 05460 5516! V60, V116 05461 0000 V61, 0000 05462 5272 JMP V72 05463 2324 ISZ V124 05464 1260 TAD V60 05465 4306 JMS V106 05466 1367 TAD (5313 05467 3766 DCA I (U130 05470 2204 ISZ V04 05471 7410 SKP 05472 7330 V72, AC4000 05473 0000! V73, 0000 05474 2204 ISZ V04 05475 5604 JMP I V04 05476 0000 V76, 0000 05477 6211 CDF 10 05500 1722 TAD I V122 05501 4325 JMS SETCDF 05502 3723 DCA I V123 05503 2322 ISZ V122 05504 2323 ISZ V123 05505 5676 JMP I V76 05506 0000 V106, 0000 05507 3765 DCA I (U36 05510 1376 TAD (7600 05511 3764 DCA I (U102 05512 1763 TAD I (U35 05513 3762 DCA I (U157 05514 5706 JMP I V106 05515 0000 V115, 0000 05516 0000 V116, 0000 05517 0000 0000 05520 0000 0000 05521 0000! V121, 0000 05522 0000! V122, 0000 05523 0000! V123, 0000 05524 0000! V124, 0000 05525 0242 SETCDF, A42 05526 6201 V126, CDF 0 05527 5725 JMP I SETCDF 05530 0000 MAKCDF, 0000 05531 7200 CLA 05532 6214 RDF 05533 1361 TAD (6203 /DEASS AB-WW-V0030 LIST.DC 01/05/70 PAGE 63 05534 5730 JMP I MAKCDF 05535 7240 CLA CMA 05536 3036 DCA ENDMEM 05537 4574 JMS I [E33 05540 1040 TAD Z40 05541 7700 SMA CLA 05542 5326 JMP V126 05543 4535 JMS I [B156 05544 5577 JMP I [L3030 05545 1051 TAD Z51 05546 5205 JMP V05 05547 0441! V147, B41 05550 4564 JMS I [Z04 05551 1040 TAD Z40 05552 1107 TAD Z107 05553 7650 SNA CLA 05554 5747 JMP I V147 05555 1040 TAD Z40 05556 7700 SMA CLA 05557 2347 ISZ V147 05560 5747 JMP I V147 05561 6203 05562 5357 05563 5235 05564 5302 05565 5236 05566 5330 05567 5313 05570 5516 05571 5247 05572 7700 05573 0017 05574 6601 05575 5515 05576 7600 05577 5312 $$$$$$$$$$$$$$$$